home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Game / S / Slug A & B.cpt / Slug A / card_3191.txt < prev    next >
Text File  |  1989-04-19  |  10KB  |  465 lines
  1. -- card: 3191 from stack: in
  2. -- bmap block id: 2102
  3. -- flags: 0000
  4. -- background id: 2627
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on opencard
  8.   put empty into card field "summary1"
  9.   put empty into card field "summary2"
  10.   put empty into card field "score1"
  11.   put empty into card field "score2"
  12.   put empty into card field "Roundnum"
  13.   global loaded1,loaded2,f1,f2,first1,first2
  14.   put first1&&f1 into card field "name1"
  15.   put first2&&f2 into card field "name2"
  16.   if loaded1=0 or loaded2=0 then
  17.     set the visible of card field "MSSG2" to true
  18.   else
  19.     set the visible of card field "MSSG2" to false
  20.   end if
  21. end opencard
  22.  
  23.  
  24.  
  25. -- part 3 (button)
  26. -- low flags: 00
  27. -- high flags: A004
  28. -- rect: left=200 top=38 right=59 bottom=311
  29. -- title width / last selected line: 0
  30. -- icon id / first selected line: 0 / 0
  31. -- text alignment: 1
  32. -- font id: 0
  33. -- text size: 12
  34. -- style flags: 0
  35. -- line height: 16
  36. -- part name: Fight!
  37. ----- HyperTalk script -----
  38. on mouseUp
  39.   global loaded1,loaded2
  40.   if loaded1=0 or loaded2=0 then exit mouseup
  41.  
  42.   global ct,winner,ko,repeet
  43.   global first1,first2,f1,f2,cl1,cl2,ef1,ef2,pw1,pw2,en1,en2,df1,df2
  44.   global sp1,sp2,score1,score2,rd
  45.  
  46.   put "none" into ko
  47.   put 0 into score1
  48.   put 0 into score2
  49.   put 0 into kn1
  50.   put 0 into kn2
  51.   put en1 into ien1
  52.   put en2 into ien2
  53.   put ef1+df2 into ef1
  54.   put ef2+df1 into ef2
  55.   put 100*ef1/(ef1+ef2) into ef1
  56.   put 100-ef1 into ef2
  57.   put 100*cl1/(cl1+cl2) into cl1
  58.   put 100-cl1 into cl2
  59.   put the random of 5 into g
  60.   if g=5 then put "massive"&&sp1 into spec1
  61.   if g=4 then put "huge"&&sp1 into spec1
  62.   if g=3 then put "mammoth"&&sp1 into spec1
  63.   if g=2 then put "bone-crushing"&&sp1 into spec1
  64.   if g=1 then put "devastating"&&sp1 into spec1
  65.   put the random of 5 into g
  66.   if g=1 then put "massive"&&sp2 into spec2
  67.   if g=2 then put "huge"&&sp2 into spec2
  68.   if g=3 then put "mammoth"&&sp2 into spec2
  69.   if g=4 then put "bone-crushing"&&sp2 into spec2
  70.   if g=5 then put "devastating"&&sp2 into spec2
  71.   put empty into g
  72.   repeat with rd=1 to repeet
  73.     play "bell"
  74.     put rd into card field "Roundnum"
  75.     repeat 35 times
  76.       put the random of 100 into num
  77.       put the random of 100 into x
  78.       put the random of 20 into y
  79.       put the random of 2 into z
  80.       put the random of 2 into w
  81.       put the random of 6 into v
  82.       put en1/ien1*1000 into ss
  83.       put en2/ien2*1000 into rr
  84.  
  85.       if num<=cl2
  86.       then
  87.       put trunc((rr-ss)/2) into adjust
  88.       if adjust<0 then put 0 into adjust
  89.     end if
  90.     if num>cl2
  91.     then
  92.     put trunc((ss-rr)/2) into adjust
  93.     if adjust<0 then put 0 into adjust
  94.   end if
  95.  
  96.   put 0 into cheer
  97.   if v<70-adjust then
  98.     put "" into str2
  99.     put 1 into points
  100.   end if
  101.   if v>=70-adjust then
  102.     put "solid " into str2
  103.     put 2 into points
  104.   end if
  105.   if v>=85-adjust then
  106.     put "big " into str2
  107.     put 3 into points
  108.     put 1 into cheer
  109.   end if
  110.  
  111.   if w=1 then put "connects with a" into str
  112.   if w=2 then put "lands a" into str
  113.   if y<=4 then put "jab" into punch
  114.   if y>4 then put "hook" into punch
  115.   if y>8 then put "cross" into punch
  116.   if y>12 then put "uppercut" into punch
  117.   if y>16 and y<20 then
  118.     put "combination" into punch
  119.     put 2 into points
  120.     put 1 into comb
  121.   else
  122.     put 0 into comb
  123.   end if
  124.  
  125.   if y=20
  126.   then
  127.   put 4 into points
  128.   put 1 into cheer
  129.   put empty into str2
  130. end if
  131.  
  132. if y<=16
  133. then
  134. if z=1 then put "left"&&punch into punch
  135. if z=2 then put "right"&&punch into punch
  136. end if
  137.  
  138.  
  139. if num>cl2
  140. then
  141. if y=20 then put spec1 into punch
  142.  
  143. if x<ef1
  144. then
  145. put trunc(en2/3)+2 into t
  146. put the random of t into u
  147. put f1&&str&&str2&punch into string
  148. put points+((pw1-pw2)/10)+score1 into score1
  149. put en2-points into en2
  150. if comb=0 then
  151.   play "whop!"
  152.  
  153. else
  154.   play "whop!"
  155.   play "whop!"
  156.   wait 50 ticks
  157.   play "whop!"
  158. end if
  159. if cheer=1 then  play "Cheer"
  160. put string into card field "summary1"
  161. if u=1 then
  162.   play "boing"
  163.   put 10+score1 into score1
  164.   put 10+en1 into en1
  165.   put 5+en2 into en2
  166.   put string&"..."&f2&&"goes down!" into card field "summary1"
  167.   put the random of 10 into ct
  168.   put kn2+1 into kn2
  169.   put ct+kn2 into ct
  170.   if ct<3 then put 3 into ct
  171.   if en2<=0 then put 10 into ct
  172.   if ct>10 then put 10 into ct
  173.   Count
  174.   if ct=10 then
  175.     play "bell"
  176.     play "bell"
  177.     play "bell"
  178.     put f2&&"will not get up!" into card field "summary2"
  179.     put f1&&"is the winner!" into card field "summary1"
  180.     put f1 into winner
  181.     put f1 into ko
  182.     ZERO
  183.     go to card "STATCARD"
  184.     send mouseup to button "stat button"
  185.  
  186.   else
  187.     put f2&&"gets up on a"&&ct&&"count." into card field "summary2"
  188.     play "boing"
  189.   end if
  190. end if
  191. else
  192.   put f2&&"misses a"&&punch into string
  193.   put string into card field "summary2"
  194. end if
  195. END IF
  196.  
  197.  
  198. if num<=cl2
  199. then
  200. if y=20 then put spec1 into punch
  201. if x<ef2
  202. then
  203. put trunc(en1/3)+2 into t
  204. put the random of t into u
  205. put f2&&str&&str2&punch into string
  206. put points+score2 into score2
  207. put en1-points into en1
  208. if comb=0 then
  209.   play "fop!"
  210. else
  211.   play "fop!"
  212.   play "fop!"
  213.   wait 50 ticks
  214.   play "fop!"
  215. end if
  216. if cheer=1 then  play "Cheer"
  217. put string into card field "summary2"
  218. if u=1 then
  219.   play "boing"
  220.   put 10+score2 into score2
  221.   put 10+en2 into en2
  222.   put 5+en1 into en1
  223.   put string&"..."&f1&&"goes down!" into card field "summary2"
  224.   put the random of 10 into ct
  225.   put kn1+1 into kn1
  226.   put ct+kn1 into ct
  227.   if ct<3 then put 3 into ct
  228.   if en1<=0 then put 10 into ct
  229.   if ct>10 then put 10 into ct
  230.   Count
  231.   if ct=10 then
  232.     play "bell"
  233.     play "bell"
  234.     play "bell"
  235.     put f1&&"will not get up!" into card field "summary1"
  236.     put f2&&"is the winner!" into card field "summary2"
  237.     put f2 into winner
  238.     put f2 into ko
  239.     ZERO
  240.     go to card "STATCARD"
  241.     send mouseup to button "stat button"
  242.   else
  243.     put f1&&"gets up on a"&&ct&&"count." into card field "summary1"
  244.     play "boing"
  245.   end if
  246. end IF
  247.  
  248. else
  249.   put f2&&"misses a"&&punch into string
  250.   put string into card field "summary2"
  251. end if
  252. END IF
  253.  
  254.  
  255. IF ko<>"none" THEN EXIT MOUSEUP
  256. put score1 into card field "score1"
  257. put score2 into card field "score2"
  258. end repeat
  259.  
  260. play "bell"
  261. put "End of Round"&&Rd&"   *    Click to Continue" into msg
  262. show msg at 20,230
  263. put 0 into ti
  264. repeat until the mouseclick
  265.   put ti+1 into ti
  266.   wait 1 ticks
  267.   if ti=60 then exit repeat
  268. end repeat
  269. hide msg
  270.  
  271. end repeat
  272. play "bell"
  273. play "bell"
  274. play "bell"
  275. if score2>score1 then put f2 into winner else put f1 into winner
  276. ENDBOUT
  277. end mouseUp
  278.  
  279.  
  280.  
  281.  
  282. -- part 4 (button)
  283. -- low flags: 00
  284. -- high flags: 2000
  285. -- rect: left=3 top=23 right=43 bottom=27
  286. -- title width / last selected line: 0
  287. -- icon id / first selected line: 11045 / 11045
  288. -- text alignment: 1
  289. -- font id: 0
  290. -- text size: 12
  291. -- style flags: 0
  292. -- line height: 16
  293. -- part name: Go home
  294. ----- HyperTalk script -----
  295. on mouseUp
  296.   visual effect iris close
  297.   go home
  298. end mouseUp
  299.  
  300.  
  301.  
  302. -- part 5 (button)
  303. -- low flags: 00
  304. -- high flags: 2000
  305. -- rect: left=29 top=23 right=43 bottom=46
  306. -- title width / last selected line: 0
  307. -- icon id / first selected line: 15420 / 15420
  308. -- text alignment: 1
  309. -- font id: 0
  310. -- text size: 12
  311. -- style flags: 0
  312. -- line height: 16
  313. -- part name: prev
  314. ----- HyperTalk script -----
  315. on mouseUp
  316.   play "Cheer"
  317.   go to prev card
  318. end mouseUp
  319.  
  320.  
  321.  
  322. -- part 6 (button)
  323. -- low flags: 00
  324. -- high flags: 2000
  325. -- rect: left=48 top=23 right=43 bottom=65
  326. -- title width / last selected line: 0
  327. -- icon id / first selected line: 16560 / 16560
  328. -- text alignment: 1
  329. -- font id: 0
  330. -- text size: 12
  331. -- style flags: 0
  332. -- line height: 16
  333. -- part name: next
  334. ----- HyperTalk script -----
  335. on mouseUp
  336.   play "Cheer"
  337.   go to next card
  338. end mouseUp
  339.  
  340.  
  341.  
  342. -- part 7 (field)
  343. -- low flags: 00
  344. -- high flags: 0004
  345. -- rect: left=9 top=72 right=154 bottom=252
  346. -- title width / last selected line: 0
  347. -- icon id / first selected line: 0 / 0
  348. -- text alignment: 0
  349. -- font id: 21
  350. -- text size: 18
  351. -- style flags: 8192
  352. -- line height: 24
  353. -- part name: summary1
  354.  
  355.  
  356. -- part 9 (field)
  357. -- low flags: 00
  358. -- high flags: 0004
  359. -- rect: left=12 top=297 right=328 bottom=81
  360. -- title width / last selected line: 0
  361. -- icon id / first selected line: 0 / 0
  362. -- text alignment: 1
  363. -- font id: 21
  364. -- text size: 24
  365. -- style flags: 8192
  366. -- line height: 30
  367. -- part name: score1
  368.  
  369.  
  370. -- part 11 (field)
  371. -- low flags: 00
  372. -- high flags: 0004
  373. -- rect: left=235 top=263 right=294 bottom=279
  374. -- title width / last selected line: 0
  375. -- icon id / first selected line: 0 / 0
  376. -- text alignment: 1
  377. -- font id: 21
  378. -- text size: 24
  379. -- style flags: 12288
  380. -- line height: 30
  381. -- part name: Roundnum
  382.  
  383.  
  384. -- part 12 (field)
  385. -- low flags: 00
  386. -- high flags: 0004
  387. -- rect: left=13 top=278 right=296 bottom=114
  388. -- title width / last selected line: 0
  389. -- icon id / first selected line: 0 / 0
  390. -- text alignment: 0
  391. -- font id: 21
  392. -- text size: 10
  393. -- style flags: 0
  394. -- line height: 13
  395. -- part name: name1
  396.  
  397.  
  398. -- part 15 (field)
  399. -- low flags: 00
  400. -- high flags: 0004
  401. -- rect: left=261 top=72 right=154 bottom=504
  402. -- title width / last selected line: 0
  403. -- icon id / first selected line: 0 / 0
  404. -- text alignment: 0
  405. -- font id: 21
  406. -- text size: 18
  407. -- style flags: 8192
  408. -- line height: 24
  409. -- part name: summary2
  410.  
  411.  
  412. -- part 18 (field)
  413. -- low flags: 00
  414. -- high flags: 0004
  415. -- rect: left=430 top=297 right=328 bottom=499
  416. -- title width / last selected line: 0
  417. -- icon id / first selected line: 0 / 0
  418. -- text alignment: 1
  419. -- font id: 21
  420. -- text size: 24
  421. -- style flags: 8192
  422. -- line height: 30
  423. -- part name: score2
  424.  
  425.  
  426. -- part 19 (field)
  427. -- low flags: 00
  428. -- high flags: 0004
  429. -- rect: left=398 top=278 right=296 bottom=499
  430. -- title width / last selected line: 0
  431. -- icon id / first selected line: 0 / 0
  432. -- text alignment: 65535
  433. -- font id: 21
  434. -- text size: 10
  435. -- style flags: 0
  436. -- line height: 13
  437. -- part name: name2
  438.  
  439.  
  440. -- part 20 (field)
  441. -- low flags: 00
  442. -- high flags: 0004
  443. -- rect: left=142 top=32 right=69 bottom=372
  444. -- title width / last selected line: 0
  445. -- icon id / first selected line: 0 / 0
  446. -- text alignment: 1
  447. -- font id: 21
  448. -- text size: 12
  449. -- style flags: 256
  450. -- line height: 16
  451. -- part name: MSSG2
  452.  
  453.  
  454. -- part contents for card part 12
  455. ----- text -----
  456. Muhammad Ali
  457.  
  458. -- part contents for card part 19
  459. ----- text -----
  460. Trevor Berbick
  461.  
  462. -- part contents for card part 20
  463. ----- text -----
  464. You must load Slugs
  465. before proceeding!